BBS in a Box 7/BBS in a Box - Macintosh - Volume VII (BBS in a Box) (January 1993).iso/Files/Hyper/E/Exegesis Tools.cpt/Exegesis Tools/background_7224.txt

Text File | 1990-12-13 | 5KB | 244 lines

-- background: 7224 from stack: in
-- bmap block id: 4520
-- flags: 4000
-- background id: 0
-- name: Concor Back
----- HyperTalk script -----
on opencard
  --this comes from Stack Developer by Steve Drazga
  put (the number of this card - the number of first card of this background+1) into field "Page Num"
end opencard


-- part 15 (field)
-- low flags: 00
-- high flags: 0002
-- rect: left=223 top=321 right=337 bottom=412
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 128
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name: s and w


-- part 8 (field)
-- low flags: 00
-- high flags: 2007
-- rect: left=37 top=74 right=311 bottom=206
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 128
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name: con ref


-- part 1 (field)
-- low flags: 00
-- high flags: 2007
-- rect: left=234 top=117 right=290 bottom=456
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 128
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name: con note


-- part 6 (button)
-- low flags: 00
-- high flags: 2004
-- rect: left=3 top=23 right=52 bottom=35
-- title width / last selected line: 0
-- icon id / first selected line: 12042 / 12042
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Home
----- HyperTalk script -----
on mouseUp
  visual effect iris open
  go Home
end mouseUp



-- part 7 (button)
-- low flags: 00
-- high flags: 2003
-- rect: left=470 top=311 right=339 bottom=507
-- title width / last selected line: 0
-- icon id / first selected line: 6720 / 6720
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Return
----- HyperTalk script -----
on mouseUp
  visual effect wipe right
  go to card id 2974
end mouseUp



-- part 10 (button)
-- low flags: 00
-- high flags: 2003
-- rect: left=423 top=314 right=338 bottom=457
-- title width / last selected line: 0
-- icon id / first selected line: 6179 / 6179
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Next
----- HyperTalk script -----
on mouseUp
  go to next card of this bkgnd
end mouseUp


-- part 11 (button)
-- low flags: 00
-- high flags: 2003
-- rect: left=32 top=314 right=339 bottom=62
-- title width / last selected line: 0
-- icon id / first selected line: 6460 / 6460
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Prev
----- HyperTalk script -----
on mouseUp
  go to prev card of this bkgnd
end mouseUp


-- part 12 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=2 top=55 right=84 bottom=35
-- title width / last selected line: 0
-- icon id / first selected line: 26635 / 26635
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: How to…
----- HyperTalk script -----
on mouseUp
  push card
  go to card id 8834
end mouseUp




-- part 14 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=315 top=292 right=310 bottom=375
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: page num


-- part 17 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=433 top=83 right=119 bottom=471
-- title width / last selected line: 0
-- icon id / first selected line: 4840 / 4840
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Back to Word Study
----- HyperTalk script -----
on mouseUp
  global wordBack
  visual effect wipe up
  go to wordBack --back to the Wrod Study Bkgnd
end mouseUp



-- part 18 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=230 top=84 right=118 bottom=263
-- title width / last selected line: 0
-- icon id / first selected line: 22076 / 22076
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Delete Card
----- HyperTalk script -----
on mouseUp
  answer "Delete this card?" with "Cancel" or "Yes"
  if it is "cancel" then exit mouseUp
  set the cursor to 4
  set lockscreen to true
  domenu "delete Card"
  go prev
  set lockScreen to false
end mouseUp



-- part 19 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=0 top=84 right=116 bottom=37
-- title width / last selected line: 0
-- icon id / first selected line: 1007 / 1007
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: ImageWriter
----- HyperTalk script -----
on mouseUp
  answer "Print “Concordance” Report or Card?" with "Cancel" or "Report" or "Card"
  if it is "Cancel" then
    exit mouseUp
  end if
  if it is "Report" then
    domenu "Print Report..."
    exit mouseUp
  end if
  if it is "Card" then
    open printing with dialog
    if it is empty then
      exit mouseUp
    else
      print this card
      close printing
    end if
  end if
end mouseUp